home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / prm / gcctbl.prm < prev    next >
Text File  |  1991-04-13  |  11KB  |  191 lines
  1. C
  2.       INTEGER*1 BX(828), BY(828)
  3.       INTEGER I
  4.       DATA (BX(I), I = 1, 100) /
  5.      .      -64,   3,   3, -64,   3,   2,   2,   3,   3, -64,
  6.      .        2,   2, -64,   4,   4, -64,   2,   2, -64,   4,
  7.      .        4, -64,   6,   0, -64,   0,   6, -64,   6,   1,
  8.      .        0,   0,   1,   5,   6,   6,   5,   0, -64,   3,
  9.      .        3, -64,   1,   0,   1,   2,   1, -64,   6,   0,
  10.      .      -64,   5,   4,   5,   6,   5, -64,   6,   3,   1,
  11.      .        0,   0,   4,   4,   3,   1,   0,   0,   6, -64,
  12.      .        4,   3,   3,   4,   4,   2, -64,   4,   2,   2,
  13.      .        4, -64,   2,   4,   4,   2, -64,   1,   5, -64,
  14.      .        3,   3, -64,   1,   5, -64,   3,   3, -64,   0 /
  15.       DATA (BX(I), I = 101, 200) /
  16.      .        6, -64,   3,   2,   2,   3,   3,   1, -64,   0,
  17.      .        6, -64,   3,   2,   2,   3,   3, -64,   0,   6,
  18.      .      -64,   6,   6,   5,   1,   0,   0,   1,   5,   6,
  19.      .        0, -64,   1,   3,   3, -64,   1,   5, -64,   0,
  20.      .        1,   5,   6,   6,   4,   2,   0,   0,   6, -64,
  21.      .        0,   1,   5,   6,   6,   5,   1, -64,   5,   6,
  22.      .        6,   5,   1,   0, -64,   5,   5,   0,   6, -64,
  23.      .        0,   1,   4,   6,   6,   4,   0,   0,   6, -64,
  24.      .        5,   2,   0,   0,   1,   5,   6,   6,   5,   0,
  25.      .      -64,   0,   0,   6,   6,   2,   2, -64,   6,   5 /
  26.       DATA (BX(I), I = 201, 300) /
  27.      .        1,   0,   0,   1,   5,   6,   6,   5,   1,   0,
  28.      .        0,   1, -64,   5,   6,   6, -64,   1,   4,   6,
  29.      .        6,   5,   1,   0,   0,   1,   6, -64,   3,   2,
  30.      .        2,   3,   3, -64,   3,   2,   2,   3,   3, -64,
  31.      .        3,   2,   2,   3,   3, -64,   3,   2,   2,   3,
  32.      .        3,   1, -64,   4,   0,   4, -64,   5,   1, -64,
  33.      .        1,   5, -64,   2,   6,   2, -64,   0,   1,   5,
  34.      .        6,   6,   5,   3,   3, -64,   3,   2,   2,   3,
  35.      .        3, -64,   4,   4,   3,   2,   2,   5,   6,   6,
  36.      .        5,   2,   0,   0,   2,   5,   0,   2,   4,   6 /
  37.       DATA (BX(I), I = 301, 400) /
  38.      .        6, -64,   0,   6,   5,   6,   6,   5,   1, -64,
  39.      .        5,   6,   6,   5,   0,   1,   1, -64,   6,   5,
  40.      .        2,   0,   0,   2,   5,   6,   4,   6,   6,   4,
  41.      .        0, -64,   1,   1, -64,   6,   0,   0,   6, -64,
  42.      .        3,   0,   0,   6, -64,   3,   0, -64,   6,   5,
  43.      .        2,   0,   0,   2,   5,   6,   6,   3,   0, -64,
  44.      .        0,   6, -64,   6,   6, -64,   1,   5, -64,   3,
  45.      .        3, -64,   1,   5, -64,   0,   1,   3,   4,   4,
  46.      .      -64,   2,   6,   0, -64,   6,   0,   2,   6, -64,
  47.      .        0,   0,   6,   0,   3,   3, -64,   3,   6,   6 /
  48.       DATA (BX(I), I = 401, 500) /
  49.      .        0,   6, -64,   6,   6, -64,   6,   6,   4,   2,
  50.      .        0,   0,   2,   4,   6,   0,   5,   6,   6,   5,
  51.      .        0, -64,   6,   6,   4,   2,   0,   0,   2,   4,
  52.      .        6, -64,   3,   6,   0,   5,   6,   6,   5,   0,
  53.      .      -64,   2,   6, -64,   6,   5,   1,   0,   0,   1,
  54.      .        5,   6,   6,   5,   1,   0, -64,   0,   6, -64,
  55.      .        3,   3, -64,   6,   6,   5,   1,   0,   0, -64,
  56.      .        0,   0,   3,   6,   6, -64,   0,   0,   3,   3,
  57.      .      -64,   3,   6,   6,   0,   6,   6, -64,   0,   0,
  58.      .        6,   6, -64,   0,   0,   3,   6,   6, -64,   3 /
  59.       DATA (BX(I), I = 501, 600) /
  60.      .        3, -64,   0,   6,   6,   0,   0,   6, -64,   4,
  61.      .        2,   2,   4, -64,   0,   6, -64,   3,   5,   5,
  62.      .        3, -64,   0,   3,   6, -64,   0,   6, -64,   2,
  63.      .        3,   3,   2,   2,   4, -64,   5,   1,   0,   0,
  64.      .        1,   4,   5, -64,   1,   4,   5,   5,   6,   0,
  65.      .      -64,   0,   2,   5,   6,   6,   5,   2,   0, -64,
  66.      .        5,   4,   1,   0,   0,   1,   4,   5, -64,   5,
  67.      .        5, -64,   5,   3,   1,   0,   0,   1,   3,   5,
  68.      .      -64,   0,   6,   6,   5,   1,   0,   0,   1,   5,
  69.      .      -64,   2,   2,   3,   4,   5, -64,   0,   4, -64 /
  70.       DATA (BX(I), I = 601, 700) /
  71.      .        5,   3,   1,   0,   0,   1,   3,   5, -64,   5,
  72.      .        5,   4,   1,   0,   0, -64,   0,   2,   5,   6,
  73.      .        6, -64,   2,   4, -64,   3,   3,   2, -64,   2,
  74.      .        3,   3,   2,   2, -64,   5,   5,   4,   4,   5,
  75.      .      -64,   4,   5,   5,   4,   2,   1,   0, -64,   4,
  76.      .        0, -64,   2,   5, -64,   2,   4, -64,   3,   3,
  77.      .        2,   0,   2,   3,   3, -64,   3,   4,   5,   6,
  78.      .        6,   0, -64,   0,   2,   4,   5,   5, -64,   5,
  79.      .        4,   1,   0,   0,   1,   4,   5,   5, -64,   0,
  80.      .        0, -64,   0,   2,   4,   5,   5,   4,   2,   0 /
  81.       DATA (BX(I), I = 701, 800) /
  82.      .      -64,   5,   5, -64,   5,   3,   1,   0,   0,   1,
  83.      .        3,   5,   0, -64,   0,   2,   4,   5, -64, -64,
  84.      .      -64,   0,   1,   4,   5,   4,   1,   0,   1,   4,
  85.      .        5, -64,   2,   2,   3,   4,   5, -64,   0,   4,
  86.      .      -64,   0,   0,   1,   4,   5, -64,   5,   5, -64,
  87.      .        0,   0,   3,   6,   6, -64,   0,   0,   1,   2,
  88.      .        3,   3, -64,   3,   4,   5,   6,   6,   5, -64,
  89.      .        0,   5, -64,   0,   0,   1,   4,   5, -64,   5,
  90.      .        5,   4,   1,   0, -64,   0,   5,   0,   5, -64,
  91.      .        3,   2,   1,   1,   0,   1,   1,   2,   3, -64 /
  92.       DATA (BX(I), I = 801, 827) /
  93.      .        3,   3, -64,   3,   4,   5,   5,   6,   5,   5,
  94.      .        4,   3, -64,   0,   1,   2,   4,   5,   6,   0,
  95.      .        6,   6,   0,   6, -64,   0,   6  /
  96. C
  97. C
  98.       DATA (BY(I), I = 1, 100) /
  99.      .        0,   8,   3,   0,   0,   0,   1,   1,   0,   0,
  100.      .        8,   6,   0,   8,   6,   0,   8,   0,   0,   8,
  101.      .        0,   0,   5,   5,   0,   3,   3,   0,   7,   7,
  102.      .        6,   5,   4,   4,   3,   2,   1,   1,   0,   8,
  103.      .        0,   0,   8,   7,   6,   7,   8,   0,   7,   1,
  104.      .        0,   2,   1,   0,   1,   2,   0,   3,   0,   0,
  105.      .        1,   2,   6,   7,   8,   8,   7,   6,   0,   0,
  106.      .        7,   7,   8,   8,   7,   5,   0,   8,   6,   2,
  107.      .        0,   0,   8,   6,   2,   0,   0,   2,   6,   0,
  108.      .        7,   1,   0,   6,   2,   0,   7,   1,   0,   4 /
  109.       DATA (BY(I), I = 101, 200) /
  110.      .        4,   0,   0,   0,   1,   1,   0,  -2,   0,   4,
  111.      .        4,   0,   0,   0,   1,   1,   0,   0,   1,   7,
  112.      .        0,   7,   1,   0,   0,   1,   7,   8,   8,   7,
  113.      .        1,   0,   6,   8,   0,   0,   0,   0,   0,   7,
  114.      .        8,   8,   7,   6,   4,   4,   2,   0,   0,   0,
  115.      .        7,   8,   8,   7,   5,   4,   4,   0,   4,   3,
  116.      .        1,   0,   0,   1,   0,   0,   8,   3,   3,   0,
  117.      .        1,   0,   0,   2,   3,   5,   5,   8,   8,   0,
  118.      .        8,   8,   6,   1,   0,   0,   1,   3,   4,   4,
  119.      .        0,   7,   8,   8,   7,   3,   0,   0,   7,   8 /
  120.       DATA (BY(I), I = 201, 300) /
  121.      .        8,   7,   5,   4,   4,   3,   1,   0,   0,   1,
  122.      .        3,   4,   0,   4,   5,   7,   0,   0,   0,   2,
  123.      .        7,   8,   8,   7,   5,   4,   4,   0,   4,   4,
  124.      .        5,   5,   4,   0,   0,   0,   1,   1,   0,   0,
  125.      .        4,   4,   5,   5,   4,   0,   0,   0,   1,   1,
  126.      .        0,  -2,   0,   8,   4,   0,   0,   5,   5,   0,
  127.      .        3,   3,   0,   8,   4,   0,   0,   7,   8,   8,
  128.      .        7,   5,   4,   4,   3,   0,   0,   0,   1,   1,
  129.      .        0,   0,   3,   5,   5,   4,   3,   3,   4,   7,
  130.      .        8,   8,   6,   2,   0,   0,   6,   8,   8,   6 /
  131.       DATA (BY(I), I = 301, 400) /
  132.      .        0,   0,   3,   3,   0,   1,   3,   4,   4,   0,
  133.      .        4,   5,   7,   8,   8,   8,   0,   0,   7,   8,
  134.      .        8,   6,   2,   0,   0,   1,   0,   2,   6,   8,
  135.      .        8,   0,   8,   0,   0,   0,   0,   8,   8,   0,
  136.      .        4,   4,   8,   8,   0,   4,   4,   0,   7,   8,
  137.      .        8,   6,   2,   0,   0,   1,   3,   3,   8,   0,
  138.      .        4,   4,   0,   8,   0,   0,   0,   0,   0,   0,
  139.      .        8,   0,   8,   8,   0,   1,   0,   0,   1,   8,
  140.      .        0,   8,   8,   8,   0,   8,   2,   4,   0,   0,
  141.      .        8,   0,   0,   8,   5,   4,   0,   5,   8,   0 /
  142.       DATA (BY(I), I = 401, 500) /
  143.      .        8,   2,   0,   8,   0,   0,   2,   6,   8,   8,
  144.      .        6,   2,   0,   0,   2,   8,   8,   7,   5,   4,
  145.      .        4,   0,   2,   6,   8,   8,   6,   2,   0,   0,
  146.      .        2,   0,   3,   0,   8,   8,   7,   5,   4,   4,
  147.      .        0,   4,   0,   0,   7,   8,   8,   7,   5,   4,
  148.      .        4,   3,   1,   0,   0,   1,   0,   8,   8,   0,
  149.      .        0,   8,   0,   8,   1,   0,   0,   1,   8,   0,
  150.      .        8,   6,   0,   6,   8,   0,   8,   0,   3,   4,
  151.      .        0,   3,   0,   8,   1,   7,   8,   0,   8,   7,
  152.      .        1,   0,   0,   8,   7,   4,   7,   8,   0,   4 /
  153.       DATA (BY(I), I = 501, 600) /
  154.      .        0,   0,   8,   8,   7,   1,   0,   0,   0,   8,
  155.      .        8,   0,   0,   0,   7,   1,   0,   8,   8,   0,
  156.      .        0,   0,   5,   8,   5,   0,  -2,  -2,   0,   7,
  157.      .        7,   8,   8,   7,   5,   0,   3,   3,   2,   1,
  158.      .        0,   0,   1,   0,   5,   5,   4,   1,   0,   8,
  159.      .        0,   3,   5,   5,   4,   1,   0,   0,   2,   0,
  160.      .        4,   5,   5,   4,   1,   0,   0,   1,   0,   8,
  161.      .        0,   0,   2,   0,   0,   1,   4,   5,   5,   3,
  162.      .        0,   3,   3,   4,   5,   5,   4,   1,   0,   0,
  163.      .        0,   0,   7,   8,   8,   7,   0,   4,   4,   0 /
  164.       DATA (BY(I), I = 601, 700) /
  165.      .        2,   0,   0,   1,   4,   5,   5,   3,   0,   5,
  166.      .       -3,  -4,  -4,  -3,   8,   0,   3,   5,   5,   4,
  167.      .        0,   0,   0,   0,   0,   0,   5,   5,   0,   7,
  168.      .        7,   8,   8,   7,   0,   7,   8,   8,   7,   7,
  169.      .        0,   5,   5,  -3,  -4,  -4,  -3,   8,   0,   5,
  170.      .        1,   0,   3,   0,   0,   0,   0,   0,   0,   8,
  171.      .        8,   5,   5,   4,   0,   0,   4,   5,   5,   4,
  172.      .        0,   5,   0,   3,   5,   5,   4,   0,   0,   4,
  173.      .        5,   5,   4,   1,   0,   0,   1,   4,   0,  -4,
  174.      .        5,   0,   3,   5,   5,   4,   1,   0,   0,   2 /
  175.       DATA (BY(I), I = 701, 800) /
  176.      .        0,  -4,   5,   0,   2,   0,   0,   1,   4,   5,
  177.      .        5,   3,   5,   0,   3,   5,   5,   4,   0,   0,
  178.      .        0,   1,   0,   0,   1,   2,   3,   4,   5,   5,
  179.      .        4,   0,   8,   1,   0,   0,   1,   0,   5,   5,
  180.      .        0,   5,   1,   0,   0,   1,   0,   5,   0,   0,
  181.      .        5,   3,   0,   3,   5,   0,   5,   1,   0,   0,
  182.      .        1,   4,   0,   1,   0,   0,   1,   5,   5,   0,
  183.      .        5,   0,   0,   5,   1,   0,   0,   1,   0,   5,
  184.      .       -3,  -4,  -4,  -3,   0,   5,   5,   0,   0,   0,
  185.      .        8,   8,   7,   5,   4,   3,   1,   0,   0,   0 /
  186.       DATA (BY(I), I = 801, 827) /
  187.      .        8,   0,   0,   8,   8,   7,   5,   4,   3,   1,
  188.      .        0,   0,   0,   4,   5,   5,   3,   3,   4,   8,
  189.      .        8,   0,   0,   8,   0,   8,   0  /
  190. C
  191.